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1.  INTRODUCTION 

The  following  is  a short  description  of  a small  extension  of  STAGE2,  providing  possibilities  to  copy 
comments  etc.  from  the  source  text  to  the  generated  text.  The  description  presupposes  familiarity  with  the 
STAGE2  system:  its  purpose,  use  and  descriptions,  like  [lj  to  [9J.  Only  section  3 of  this  paper  requires 
knowledge  of  the  internal  structures  and  working  of  the  system,  and  that  section  is  unnecessary  for  the 
plain  use  of  the  described  feature. 

The  extension,  if  not  used,  is  completely  invisible  to  the  user:  No  rules,  as  described  in  the  original 
litterature,  are  changed.  A user,  unaware  of  the  extension,  will  see  no  difference  from  the  original  version. 


2.  THE  FLAG  LINE 

As  described  in  [lj,  the  inpul  material  for  any  translation  by  STAGE2  starts  with  a collection  of 
macros,  defining  the  correspondence  between  the  source  language  of  input  (program)  text  following  the 
macros',  and  the  target  language.  In  the  very  beginning  of  the  input  material,  however,  and  preceeding  the 
macros',  is  a so-'illed  FLAG  LINE.  This  line,  terminated  by  carriage  return,  defines  the  character  set  used. 

2.1.  The  original  format  of  the  Flag  Line. 

As  also  stated  in  [1],  the  flag  line  consists  of  the  following  characters,  in  the  order  shown: 

Pos.  in  Function  of  Character  Usual  character 

Flag  line 


1 Source  end-of-line  flag  *> 

2 Source  parameter  flag  • 

3 Target  <jnd-ot-line  flag  I 

4 Target  parameter  flag  • 

5 Zero,  defines  all  digits  0 

6 Space.  Also  used  as  padding  character  space 

7 Left  parenthesis  ( 

8 Addition  operator  * 

9 Subtraction  operator 


lUJWMMm  W— >— » || f > I > —iWi  — ^TTf-r-r l — 'll  I"  y 1,Tr“1"‘“T 
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Multiplication  operator 
Division  operator 
Right  parenthesis 


If  lh.  character  follow, n,  imm.di.tal,  altar  >,  i.»  m poailion  13,  i.  nol  a earn.,,  r.  urn  or  apaco, 
lh.  flag  lino  will  b.  con., dor.fi  -a.taod.d-,  alfaclio,  th.  copying  of  coofoiool.,  « ..pl.inod  In 
Contrary  il  lh.  ch.ract.r  imm.dial.ly  lollowln,  ) i.  carriag.  r.lurn  or  apac.  (lh.  tailor  r.l.v.nt  lor 
punched  card.),  lh.  flag  tin.  la  conaid.r.d  -normal-,  and  nothing  ia  change,  wilh  roap.ct  lo  ua.  or  th. 

appearance  of  the  generated  text 


2.2,  Extended  Flag  Line. 

With  a simple  extension  of  the  flag  line,  one  can  specify  that  comments  in  the  source  text  shall  be 
copied  over  to  the  generated  text  lines.  By  "comments"  is  her.  meant  string,  of  characters,  other  than 
spaces  following  the  source  end-of-line  flag,  before  carriage  return  or  end  of  line.  As  required  by 
assembler  or  other  systems  program,  to  be  used  for  later  processing  Of  the  generated  text,  comments  in 
,he  generated  text  should  usually  begin  with  a special  delimiter,  after  which  th.  remainder  of  the  I me  will 
be  considered  as  comments  and  neglected  by  th.  assembler  (or  post-processor).  On.  often  used  symbol  for 
this  purpose  ,s  ; but  any  single  character  can  be  used,  since  this  is  to  be  speclf.ed  on  th.  .xt.nd.d 
flag-line.  An  example  of  an  extended  llaj-line  can  look  likes 

,e$«0_(—*/)8  tab  tab  „ „ „ ; 

where  _ here  symbolizes  one  space  character,  and  tab  symbolizes  one  tab 

Th.  first  12  characters  are  unchanged.  Further  along  th.  lin.  is  typ.d  th.  comm.nt  delimiter,  which 
here  is  • in  th.  position  where  it  is  to  appear  in  th.  generated  lines.  Th.  comm.nts  will  b.  ins.rUd  in  th. 
generated  first  line,  immediately  following  the  delimiter,  such  that  any  tabulator  or  spac.  characters  in 
front  of  the  comment,  in  th.  source  t.xt  will  be  suppressed,  and  substituted  by  tabulator  and  space 
characters  as  necessary  to  plac.  the  delimiter  and  comm.nt,  in  the  proper  place  on  th.  line.  Also,  if  the 
source  line  comments  begin  with  the  delimiter  character  (following  possible  leading  tab,  and  spaces),  this 
delimiter  i,  suppressed,  to  give  only  on.  delimiter  ch.ract.r.  Delimiter  characters  later  on  th.  line  w.M  b. 
copied  normally,  however.  By  "first  line"  is  her.  meant  the  first  of  th.  th.  group  of  l.n.s  generated  by 

one  macro,  i.e  the  group  of  lines  corresponding  to  the  source  lin.. 

The  first  character  following  ) (i.e.  in  position  13)  in  th.  flag  line  should  be  an  integer,  m th.  rang. 

1 to  9 specifying  W = th.  number  of  spaces  equivalent  to  on.  tabulator.  Th.  next  character  should  b.  the 
tabulator  character  ("tab").  Following  this,  comes  any  numb.r  of  more  "tabs"  (may  be  z.ro),  followed  by 
any  number  of  spaces,  which  can  also  be  zero.  Tabs  and  spaces  can  not  be  mixed 

More  concisely:  If  the  number  of  concecutive  tabs  in  th.  flag  lin.  is  k,  follow.d  by  j spac.s,  th. 

.comment  delimiter  will  be  placed  in  position  number: 

D ’ [(13  : W)  ♦ k]  # W • j 

wher.  : symbolizes  integer  division,  discarding  remainder. 

The  integer  13  originates  from  the  thirteen  Lading  characters  on  th.  lin.,  b.for.  th.  first  tab.  As  a 
matter  of  fact,  on.  can  simply  forget  the  formula  and  just  put  the  comment  delimiter  in  th.  prop.r  poa.t.on 

along  thehn.. general  b<<Qr#  comm-nU(  .xt,nds  beyond  th.  position  specified  for  st.rt  of 


) 


comments,  the  comments  will  start  immediately  after  the  generated  string 

To  summarize,  the  character  positions  along  an  extended  flag  line  have  the  following  significance: 


Pos.  in 

Function  of  Character 

Usual  character 

Flag  line 

1 

Source  end-of-line  flag 

0 

2 

Source  parameter  flag 

e 

3 

Target  end-of-line  flag 

t 

4 

Target  oarameter  flag 

e 

5 

Zero  defines  all  digits 

0 

6 

Space.  Also  used  as  padding  character 

space 

7 

Left  parenthesis 

( 

8 

Addition  operator 

♦ 

9 

Subtraction  operator 

• 

10 

Multiplication  operator 

♦ 

1 1 

Division  operator 

/ 

12 

Right  parenthesis 

) 

13 

*W,  number  of  spaces  between 

8 

1 4»i 

tabulator  positions 
Tabulator  character  value 

tab 

(.=0,1  ..  .K-l ) 

next  j 

Space,  as  podding  character,  used 

space 

characters 

to  fix  the  start  of  the  comment 

(jrO  permitted) 

section  between  two  tab  positions 

1 4»k«j 

Comment  delimiter 

e 

Possible  further  characters,  up  to  carriage  return,  ere  ignored. 


3.  DESCRIPTION  OF  MODIFICATIONS  IN  STAGE2 

The  modification  of  STAGE2,  necessary  to  record  extended  flag-line  and  provide  copying  of 
comments,  consists  of  3 parts: 

I Extension  of  the  first  part  of  STAGE2,  reading  the  flag  line. 

2.  Modification  of  the  line  input  routine. 

3.  Modification  and  extension  of  the  routine  that  outputs  characters  to  the  line  buffer. 

Part  1 is  close  to  the  beginning  of  STAGE2,  part  2 is  around  the  label  LOC  03,  and  part  3 it  at  LOC 
57  Tho  modifications  are  shown  in  the  enclosed  listings,  on  the  following  pages.  The  modification*  are 
distinguished  from  the  original  parts  of  the  program,  by  the  use  of  small  letters  for  comments.  Also,  the 
new  or  modified  lines  are  not  finished  with  the  word  STG2,  which  indicates  original  program  text.  The 
semicolon,  introducing  each  comment,  is  superfluous  here,  it  is  merely  included  due  to  a habit  of  the  author. 
The  listings  included  here  are  only  extracts  of  the  program,  showing  the  modifications  and  their 
surroundings  By  comparison  with  a complete  listing  of  the  original  text,  it  should  be  fairly  simple  to  sp.'t 
the  places  where  the  modifications  are  made. 

The  modified  progrt  n-text  partly  explains  itself,  through  the  comments  Included.  A couple  of  further 
details  to  note  are,  however: 

The  set  of  registers  of  the  simulated  FLUB  machine  is  extended  with  6 more  triples:  FLG,  VAL,  and 


...  ^1...... 


A 


■ ..w  a. 


_ _ ...  ...  a a ad  AD  AE  AF,  and  ZC.  This  involv.s  that  th.  modifi.d  v.rsion  of  STAGE2  no  longer 

can'll'  translated  by  SIMCMP,  sine.  on.  mor.  ch.r.et.r  is  us.d  in  th.s.  variable  names.  For  the 
i „,4ai,nn  i«  th.r.lor.  recommended,  that  tha  original  varsion  is  usad,  until  a primitive 

v « r s io n^ o Ts T AG E 2# is  running  Th.n,  this  ona  can  b.  usad  to  translata  tha  modifi.d  varsion. 

Tha  variablas  mantion.d  ar.  usad  in  th.  following  applications: 


AA 

AB 

AD 

AE 

AF 

ZC 


VAL 

value  of  char 
not  us.d 
working  variabla 
tab  charactar  valu. 
comm.nt  delimiter  valua 
not  us.d 


PTR 

pointer,  currant  charactar  of  comment  taxt 

pointar,  .nd  of  commant  taxt 

numbar  of  positions  batwaan  aaeh  tab  position 

pos.  no.  corresponding  to  intagar  tabs  bafora  commants 

pos.  no.  of  beginning  commants 

pointar  for  currant  charactar  during  output 


on.  more  r.m.rK  imp.rl.nt,  ««  PTR  ZC:  TN.  v.riW.  I.  *.  m.nippl.t.-,  .nd  ch.„,.d,  by  th. 

internal  READ  NEXT  .nd  .t  WRITE  NEXT  ...  It  I.  l,Kr.m.nt.d  by  ..ch 

, * ♦ THAR  * VAL  a H.r.  a signifias  any  valid  paramatar,  according  to  macro  notations. 

omy  PTR ' T: ,'lTd  by  tnt.rnai*opi,«bo*ns.  At,  JL  FLUB  -By  by  th.  STAGER 

program,  as  posifivsly  .xprass.d  by  FLUB  stat.m.nts. 
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Tha  following  pag.s  comprisa: 

1.  Extracts  from  listings  of  STAGE2,  in  FLUB.  . 

2 Example:  Macros  for  translation  from  FLUB  to  assembly  for  PDP-10 

3 Extraets  from  PDP-10  assembly  version  of  STAGE2,  extras  corresponding  to 
item  1 above,  as  translated  with  macros,  item  2. 
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APPENDIX  1:  Extracts  from  listings  of  STAGE2,  in  FLUB. 


(Section  containing 
FTP  J - 0 + 0. 
FLG  L - 1. 

VAL  L - 0 - 1. 
PTR  L « 0 + 0. 

\ AL  M = CHAR. 

PI R tl  - 0 + 0. 
FLG  N - 0. 

VAl  N » CHAR. 
FLG  0 = 0. 

VAL  0 « CHAR. 
VAL  P - CHAR. 
VAL  Q * CHAR. 
VAL  R - CHAR. 


routines  for  input  of  Flag  line  and  for  input  of  normal  line*) 

EN0-0F-L1NE  IN01CAT0R. 

CARRIAGE  RETURN  IS  -1. 

LOCATION  COUNTER. 

LEFT  PARENTHESIS. 

RESET  THE  SKIP  COUNT. 

SET  EXPRESSION  SIGN  POSITIVE. 
ADDITION  OPERATOR. 

SUBTRACTION  OPERATOR. 

MULTIPLICATION  OPERATOR. 

DIVISION  OPERATOR. 

RIGHT  PARENTHESIS. 


VAL 

AF  - 

0 + 

0. 

VAL 

AE  ■ 

0 + 

0. 

PTR 

AE  - 

0. 

PTR 

AF  = 

0. 

PTR 

AD  » 

0. 

VAL 

AD  - 

CHAR. 

0. 

TO  1 

E IF 

VAL 

AD  LT 

TO  IE  IF 

VAL 

AO  - f 

: 

• 

VAL 

AO  - 

AD  ■ 

- E. 

PTR 

AO  - 

VAL 

AO. 

PTR 

AF  = 

S ♦ 

3. 

PTR 

AE  - 

AF  . 

( AO. 

PTR 

AF  - 

(J. 

VAL 

AE  * 

CHAR. 

LOC 

1A. 

PTR 

AE  = 

AE 

4-  1. 

VAL 

AD  - 

CHAR. 

•TO 

10  IF 

VAL 

AD  LT 

0. 

TO 

1A  IF 

VAL 

AD  - 

AE. 

LOC 

IB. 

TO 

1C  IF 

VAL 

AD  NE 

F. 

PTR 

AF  - 

AF 

+ 1. 

VAL 

AD  - 

CHAR. 

TO 

IB. 

LOC 

1C. 

AD  LT 

0. 

TO 

ID  IF 

VAL 

TO 

1A  IF 

VAL 

AD  - 

AE. 

VAL 

AF  - 

AD. 

LOC 

ID. 

PTR 

AE  = 

AE 

* AD. 

PTR 

! AF  - 

AE 

+ AF . 

; read  extension  of  FLAG  LINE 
• initialize 


; rema i ns*=0  if  no  extension 

< no  extension  of  FLAG  LINE 
j no  extension  of  FLAG  LINE 

• corresp.  no.  positions  for  TAB 

• into  tab. -parameter 

• POSNOtno  of  pos.  > — 13 
: NMTAB  - POSNO/TABPOS 

• initialize  POSNO 

; TAB-character  value 

; count  no.  of  tabs 

j terminate  extension 
; read  new  if  tab 

; jump  if  not  space 
; count  no.  of  spaces 
; read  neu  if  space 


• terminate  extension 
; read  neu  if  tab 
j read  comment-delimiter 
. calculate  extension-parameters 
j pos.no.  corresp.  to  integer  tabs 
( pos.no.  of  beginning  comments 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


V 


t 


"J 


LOC  IE. 

PTR  R - 0 + 0. 

PTR  4 - 7 + 7. 

PTR  8 = F + 7. 

TO  01  BV  0. 

LOC  01. 

GET  I = A. 

READ  NEXT  I . 

TO  38  IF  FLG  I NE  0. 
PTR  I - C + 0. 

VAL  V = 0 + 0. 

PTR  V - C + 0. 


continue  original  STAGE2 

SET  NO  REPETITION  IN  PROGRESS. 
LENGTH  OF  TWO  DESCRIPTORS. 

POINT  TO  THE  FIRST  AVAILABLE  SPACE. 
START  WORKING  IN  EARNEST. 

ROUTINE  TD  READ  FROM  THE  INPUT. 
RECALL  THE  CHANNEL  SPEC. 

GRAB  A LINE. 

GET  OUT  UNLESS  ALL  IS  OK. 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


mmmst 


r 


1 


TIT  1’ 

12 

IF 

ptr  n 

- 0. 

F’TR 

n 

- M - 1. 

TO  Hi  . 

LUC 

IT  2 

, 

pin 

0 

S3 

I 4 0. 

VAL 

I 

- 1 

MAR. 

F’TR 

I 

r-  : 

3 - 7. 

TO 

yr 

IF 

73 

JO 

00 

GE  I. 

sro 

t 

- 

I . 

TO  l 

I A 

IF 

VAL  1 

- L. 

TO  i 

T3 

IF 

VAL  I 

- A. 

VAL 

Y 

.■» 

Y 4-  1. 

in  i 

02 

IF 

VAL  I 

NE  B. 

PTR 

D 

s 

I 4-  0. 

S TO 

0 

» 

B. 

TO  i 

82. 

LOC 

03 

j , 

PTR 

A A 

I - 

9. 

LOC 

BA. 

TO 

OB 

IF 

VAL  I 

- L. 

PTR 

0 

ss 

I 4-  0. 

LCIC 

OG. 

« 

VAL 

I 

c 

CHAR. ; 

TO  01  I 

F 

VAL 

I 

NE 

A. 

VAL 

I = 

. CHAR. 

LOC  i 

01  . 

TO  0G  1 

IF 

VAL 

I 

m 

F. 

TO  BG  i 

IF 

VAL 

I 

m 

AE. 

TO  0 

j : 

IF 

VAL 

I 

NE 

AF 

VAL 

i • 

« i 

CHAR 

TO  OH. 

LOC 

0J 

PTR 

AA 

= 

9. 

LOC 

OH 

PTR 

I 

t= 

9 - 

7. 

STO 

o 

z 

I . 

TO  9 

7 

IF 

PTR 

8 

GE  I. 

TO  0B 

IF 

VAL 

I 

- 

L. 

PTR 

0 

X 

I + 

0. 

VAL 

I 

— 

CHAR 

. 

TO  0H. 

LOC 

0B 

. 

PTR 

AB 

s 

: 9. 

LCIC 

04 

• 

PTR 

U 

c 

3 - 

7. 

STO 

U 

s 

3. 

PTR 

U 

- 

U - 

7. 

STO 

IJ 

X 

3. 

PTR 

U 

a 

U - 

7. 

STO 

U 

e 

3. 

PTR 

u 

s 

U - 

7. 

STO 

u 

s 

3. 

PTR 

u 

s 

U - 

7, 

STO 

Li 

■ 

3. 

PTR 

U 

- 

U - 

7. 

STO 

U 

IS 

3. 

PTR 

U 

a 

U - 

7. 

STO 

U 

m 

3. 

PTR 

u 

C 

U - 

7. 

STO 

u 

Z3 

w • 

SHOULD  THIS  LINE  BE  SKIPPED,  NO. 
YES.  DROP  THE  SKIP  COUNT 
THY  AGAIN. 

READING  LOOP. 

ADVANCE  THE  SPACE  POINTER. 

REAO  THE  NEXT  CHARACTER. 

POINT  TO  THE  NEXT  CHARACTER  SPACE. 
HAVE  WE  OVERRUN  THE  AREA,  YES. 

PUT  AWAY  THE  CHARACTER. 

UAS  THIS  A CARRIAGE  RETURN,  YES. 
HAVE  UE  COMPLETED  THE  READ,  YES. 
BUMP  THE  INPUT  STRING  LENGTH. 

NO,  IS  THIS  A PARAMETER  FLAG,  NO. 
YES.  SET  THE  PARAMETER  POINTER  AND 
STORE  IT  WITH  THE  PHASE  FLAG. 

READ  THE  REMAINDER  OF  THE  LINE, 
remark  limitmark 
loop  to  read  comments  etc. 
car. ret.,  i.e.  no  remainder 


; read  new  if  first  was  "source  EOL-flag" 

; eliminate  leading  spaces 

• eliminate  leading  tabs 

; continue  if  no  comment-delimiter 

• eliminate  comment-delimiter 


i adjust  startpointer 
s normal  read/store  loop 


i error  if  full 
5 terminate  when  car. ret. 

j read  next 

; and  continue  in  loop 
; remainder  of  line  finished 
5 set  terminate-pointer 

SCANNER. 

SET  ALL  PARAMETERS  UNDEFINED. 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


9 


t 


| 


ininni.V<m»TelW 


(Section  containing  the  Modified 


STO  8 
PTR  S 
TO  97 
VAL  1 


+ 

AB 


0. 

0. 


= i. 

a S 4 7 • 

IF  PTR  8 GE  9. 

- CHAR. 

TO  R5  IF  VAL  I NE  C. 
FLO  R - 0. 

LOC  05. 

RETURN  BY  D. 

loo.  op. 

VAL  U = 3 
PTR  X = C 
PTK  AA 
LOC  57. 

GET  X - X. 

TO  00  IF  VAL  X 
TO  00  IF  PTR  AD 
TO  00  IF  PTR  AA 
LOC  2A. 

TO  2B  IF  PTR  ZC  GE  AE. 
CHAR  - VAL  AE. 

TO  2A. 

LOC  2B. 

TO  2C  IF  PTR  ZC  GE  AF. 
CHAR  - VAL  F. 

TO  2B. 

LOC  2C. 

TO  0C  IF  VAL  AF 
CHAR  = VAL  AF. 

LOC  0C. 

GET  AA  - AA. 

TO  7E  IF  VAL  AA  NE  A. 


NE  L. 
0. 
AB. 


0. 


LOC  20. 
GET  AA 
LOC  2E. 
CHAR  = 
TO  0F  1 
TCI  20  I 
LOC  00. 
CHAR 


AA. 


VAL  AA. 

F FLG  AA  - 1. 

F PTR  AA  NE  AB. 


VAL  X. 

TO  0E  IF  VAL  X - L. 
TO  57  IF  FLG  X NE  1. 
LOC  0F . 

PTR  AA  = AB. 

LOC  0E. 

URITE  NEXT  U. 

TO  98  IF  FLG  U NE  0. 
TO  55  IF  VAL  X - L. 
CHAR  - VAL  X. 

TO  57. 

LOC  58. 

FTR  Z - U + Z. 

TO  S0  IF  PTR  U NE  0. 
TO  71  IF  FLG  B - 2. 
LOC  59. 

TO  70  IF  PTR  V GE  9. 
- V. 

= Q . 

«*  Y • 

IF  FLG 


GET  Z 
GET  Y 
GET  X 
TO  63 


TO  64  IF  FLG 


2. 

3. 


output  routine) 

yes,  set  the  TERMINATDR. 

ADVANCE  THE  SPACE  POINTER. 

HAVE  UE  OVERRUN  THE  AREA,  YES. 

GET  THE  NEXT  CHARACTER. 

DID  THAT  CLOSE  THE  DEFINITION  PHASE,  NO. 
YES.  RESET  THE  PHASE  FLAG. 

COMMON  SYSTEM  RETURN  PDINT . 

REGISTER  0 IS  THE  RETURN  ADDRESS. 

PUNCH  AN  UNRECOGNIZED  LINE. 

CHANNEL  3 USED  UHEN  A LINE  IS  NDT  MATCHED. 
ADDRESS  THE  FIRST  CHARACTER. 

• eliminate  double  output  of  comments 
; output  characters 

; norm,  loop,  get  character 
; continue  in  normal  loop  if  not  CR 

• or  if  "main  extension  suith"  off 

• or  i f no  remainder  in  this  line 
j output  remainder  of  line! 

. if  pos. counter  lesB  integr.  tab.poe 
j then  output  tab  and  loop 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


S loop  for  spaces 
: put  out  space(s) 


put  out  comment-delimiter 

loop  for  output  of  remaining  string 

get  first  char. 

eliminate  possible  "source  EDL-flag 
loop  for  output  remainder  (comments) 
get  next  character 


put  out  the  character 
possible  terminate 
go  loop  if  not  exhausted 
normal  output -loop 


terminate  i f CR 

HAVE  UE  REACHED  THE  END,  NO. 


STG2 


squeeze  possible  remaining  of  "remainder 
nnd  of  line  reached: 

YES,  PUT  IT  OUT  ON  THE  DESIGNATED  CHANNEL 
TREAT  ANY  ERROR  AS  FATAL. 

ELSE  IF  THE  LINE  IS  COMPLETE,  RETURN. 

ELSE  REPRINT  THE  LAST  CHARACTER 
AND  CONTINUE. 

TRY  FDR  AN  ALTERNATIVE  MATCH. 

GET  THE  POINTER  TO  THE  ALTERNATIVE. 

UAS  THERE  ONE  AFTER  ALL,  YES. 

NO,  ARE  UE  DEFINING,  YES. 

TRY  EXTENDING  THE  PREVIOUS  PARAMETER. 

IS  THERE  ONE  TO  EXTEND,  NO. 

RECALL  THE  MACRO  POINTER. 

YES,  RECALL  THE  INPUT  POINTER 
AND  THE  CURRENT  CHARACTER 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


ftllU  HlL  uuni  >Wll  I Wl  ini  IMV  I to!  . 

IS  THIS  THE  FIRST  TIME  FDR  A PARAMETER,  YESSTG2 
NO,  IS  IT  A PARAMETER  EXTENSION,  YES.  STG2 


APpENDIX  2:  Example:  Macro$  for  translation  from  FLUB  to  assembly  for  PDP-10 


.#8 «o  (+-*/)&  i 

GET  # = tt. 

IF  AC2  - 'PTR#20’  SKIP  1* 

HOVE  2,PTR#20#F18 


SET  AC2  TO  0* 

flOVEl  1S,FLG#10#F18 
JSR  UNPACK#F18 


8 

STO  tt  - tt. 

IF  AC2  - ’ PTR#10’  SKIP  21 

MOVE  2,PTR#10#F18 

SET  AC2  TO  ,PTR»10’t 

nOvEI  1S.FLG#20#F18 
JSR  PACK#F18 

8 

•F LG  # - #. 

IF  #20  NE  0 SKP  28 

SETZfl  FLG#10#F18 

SKIP  48 

IF  AC2  - ’ FLG#20’  SKIP  It 

HOVE  2, FLG#20#F18 

SET  AC2  TO  ’ FLG#10' 8 

nOVEn  2,FLG#10#F18 

8 

VAL  tt  - PTR  tt. 

IF  AC2  - ' PTR#20'  SKIP  18 

MOVE  2,PTR#20#F18 

SET  AC2  TO  ’ VAL#10‘ 8 

flOVEfl  2, VAL#10#F18 

8 

PTR  tt  - VAL  tt. 

IF  AC2  * ' VAL #20’  SKIP  18 

HOVE  2,VAL#20#F18 

SET  AC2  TO  *PTR#10’8 

riOVEfl  2,PTR#10#F1I 


8 


PTR 

# - 0. 

8 

SETZfl 

PTR#10#F11 

VAL 

# - 0. 

8 

SETZfl 

VAL#10#F1I 

# # 

■ 0 + 0 a 

8 

SETZfl 

#10#20#F1I 

# # 

- # + 0. 

IF 

AC2  - ’#10#30’  SKIP  11 

MOVE 

2,#10#30#F18 

HOVEfl 

2,#10#20#F18 

SET  AC2  TO  * #10#20'  8 


8 


U * ■=  # » 1. 

IF  #20  (IE  #30  SKP  31 
IF  AC?  - ,#10#30'  SKIP  51 

AOS  #10#20#F1I 

SKIP  S8 

IF  AC2  = ’#10#30’  SKIP  II 
HOVE  2.#10#30#F1I 
SET  AC2  TO  ,tfl0«20’l 
AOJ  2.#F18 
HOVEH  2.#10#20#F18 


8 

tt  tt  - tt  - 1. 

IF  tt 20  ME  tt 30  SKP  31 
IF  AC2  - ’#10#30’  SKIP  5* 

SOS  #10#20#F1I 

SKIP  58 

IF  AC2  - * #10*30'  SKIP  II 
HOVE  2, #10#30#F1I 
SET  AC2  TO  ,*10#20,l 
SOJ  2 , #F 1 I 

MOVEH  2.#10#20*F1I 

8 

tt  tt  - tt  + 7. 

#10  #20  - #30  + II 

8 

tt  tt  ~ tt  - 7. 

#10  #20  - #30  - II 

8 

# tt  = tt  + tt. 

IF  AC2  - ’ #10#30'  SKIP  :i 
IF  AC2  * ' #1 0#40’  SKIP  33 

HOVE  2,#10#30*F1I 
AOO  2,#10#40#F1I 

SKIP  18 

ADO  2,#10#30#F1I 

SET  AC2  TO  ,#10#20,l 

nOVEM  2, #10#23#F1I 


8 

##-#-#. 

IF  AC2  - ’ #10#30*  SKIP  II 
MOVE  2, #10#30#Fll 
SUB  2.#10#40#F1I 


SET  AC2  TO  ,#10#20,l 

MOVEn  2. #10#20#F1I 


8 

tt  tt  - tt. 

IF  #20  - #30  SKP  41 
IF  AC2  - *#10#30'  SKIP  II 

MOVE  2,#10#30#F1I 
SET  AC2  TO  ,#10#20’l 

MOVEM  2 , # 1 0#23#F 1 8 


8 


fir  u = tt  * tt. 

IF  «3P  ME  7 SKP  31 
ptr  mi  = asps 

SKIP  <58 

IF  ACS  - •PTR»20*  SKIP  2* 

IF  ACS  « ' PTR#30'  SKIP  38 

MOVE  2.PTR»20»Flf 
inUL  2.PTR#30#F18 


SKIP  18 


lHUL  2. PTR 

novEn  2. ptr 

SET  ACS  TO  ’ PTRW10’ * 
8 

PTR  u =•  tt  / tt. 

IF  // 30  HE  7 SKP  38 
PTR  W10  = #208 


2.PTR#20»F18 

2,PTR#10#Flt 


SKIP  S8 
IF  AC2  ■ 


' PTR#20’  SKIP  18 
MOVE  2.PTR#20#F18 
101 V 2.PTR#30#F18 
HOVEM  2,PTR#10#F18 
TO  ’PTR#10’8 


SET  AC2  TO  ’PTR#10’8 
8 

TO  tt  IF  tt  tt  = tt. 

LF  ACS  * ’ #201/30’  SKIP  28 

MOVE  2.#20#30#F18 
SET  ACS  TO  -#20#30’8 

CAHN  S.#20#40#F18 
JRST  LOC#10#F18 


8 

TO  tt  IF 
IF  ACS  > 

SET  ACS 


TO  tt  IF 
IF  ACS 

SET  AC2 


TO  tt  IF 
IF  AC2  - 

SET  AC2 

8 

TO  # IF 
IF  ACS  • 
IF  ACS  = 

SET  ACS 

SKIP  IS 


tt  tt  ME  0. 

: ’#20»30’  SKIP  28 
HOVE  2.#20#30#F18 
TO  ’#20#30’8 
JLinPN  2.LOC#10#F18 

tt  tt  GE  0. 

. ,#20#30’  SKIP  28 
HOVE  2,#20#30#F18 
TO  ’«20«30’8 
JUriPGE  2,LOC#10#F18 

tt  tt  - 0. 

- ’#20#30’  SKIP  28 
HOVE  2.#20#30#F1* 
TO  ’tf20#30’8 
JUnPE  2,LOC#10#Flt 

h tt  NE  tt, 

. 'ttimZ'  SKIP  38 
= ’#20#40’  SKIP  48 
riO'E  2,#20#30#F18 
TO  ’#20#30’8 
CAPIE  2,#20#40#F18 

CAME  2.#20#30«F18 
JRST  LOC#10#F18 


mmk 


to  tt  if  u n ge  tt. 

IF  AC2  - •#20«30’  SKIP  3* 

IF  Arr  - 'tt?M 40’  SKIP  41 
MOVE  2.#20#30#F1« 
SET  AC 2 10  ’ £20A30' 1 

CAML  2.#20#40#F18 


SKIP  1* 


CAHG  2,#20#300F18 
JRST  LOC#10#F18 


TO  tt  IF  tt  tt  tt  tt. 


IF  ac: 


'tt2M2V  SKIP  21 


MOVE  2.#20#30#F11 
SET  AC2  TO  ,#20#30,l 
IF  AC  13  - •BOUM1  SKIP  21 
SET  AC13  TO  'BOL#40't 

MOVE  13,B0L#48#Flf 


MOVE  1S,#20#S0#F1I 
JSR  BOOL #F IS 

JRST  LOC#10#F1S 


8 

to  tt. 


JRST  LOC#10#F1S 


TO  tt  BY  tt. 

MOVE  I 14.PTR#20#F18 


MOVE!  15,LOC#10tfF18 
JSP  13.SUBRT#F1S 
SET  AC 13  TO 


RETURN  BY  tt. 

MOVE  13,PTR#10#F1I 
JRST  ( 1 3 ) #F  1 8 
SET  AC 13  TO  01 

8 

LOC  tt. 

LOC«10:#F18 
SET  AC2  TO  08 
SET  AC13  TO  08 

8 

STOP. 

SETA8 

EXIT8 


END  PROGRAM . 
LOUEND*-.  #F18 
BLOCK  MASS! Z#F1I 
HIGENO-. #F18 
END  STARTtfFIS 
tfF08 


r 


I ? 


I 


s 

VAL  # o CHAR. 

JSR  GET1C#F18 
nOVEn  2,VAL#10#F18 
SET  AC2  TO  ’VALtfie'* 

* 

CHAR  = VAL  #. 

SET  AC2  TO  ’ VAL#10' * 

HOVE  2,VAL#10#F18 
JSR  UTCHAR#F1I 
nOVEn  3.FLG#10#F18 

8 

LIR1TE  NEXT  #. 

HOVE  5.VAL#10#F18 
JSR  WRTL1N#F18 
nOVEn  2,FLG#10#F18 
SET  AC2  TO  ’ FLG#10' 8 
8 

REWIND  #. 

HOVE  5,VAL#10#F18 
JSR  REWND#F 1 8 
HOVER  3.FLG#10#F18 


MESSAGE  # TO  tt. 

tlOVEl  13.  [ASC1Z/#10/I#F1I 
15, VAl#20#F18 
MSGOUT#F18 
3.FLG#20#F18 


MOVE 
JSR 

novtn 


TO  tt. 


SKIP  tt. 

#20  SKP  #308 


Appendix  3:  Extracts  from  POP- 10  assembly  version  of  STAGE2,  extracts  corresponding 
to  Appendix  1,  as  translated  with  macros,  Appendix  2. 


(Soction  containing  routines  for 


SETZM 

PTRJ 

MOVE 

2.FLG1 

MOVEM 

2.FLGL 

MOVE 

2.VAL0 

50  J 

2, 

MOVEM 

2.VALL 

5ETZM 

PTRL 

JSR 

GET1C 

MOVEM 

2.VALM 

SETZM 

PTRM 

SETZM 

FLGN 

JSR 

GET1C 

MOVEM 

2.VALN 

SETZM 

FLGO 

JSR 

GET  1C 

MOVEM 

2.VALU 

JSR 

GET1C 

MOVEM 

2. VALP 

JSR 

GET  1C 

MOVEM 

2.VALQ 

JSR 

GET1C 

MOVEM 

2.VALR 

L0C1A: 


SETZM 

VALAF 

SETZM 

VALAE 

SETZM 

PTRAE 

SETZM 

PTRAF 

SETZM 

PTRAO 

JSR 

GET1C 

MOVEM 

2.VALAD 

MOVE 

13.B0LLT 

MOVE 

15.VAL0 

JSR 

BOOL 

JRST 

L0C1E 

CAMN 

2.VALF 

JRST 

L0C1E 

SUB 

2. VALE 

MOVEM 

2.VALAD 

MOVEM 

2. PTRAO 

MOVE 

2.PTRS 

ADD 

2.PTR3 

MOVEM 

2. PTRAF 

MOVE 

2. PTRAF 

IDI V 

2. PTRAO 

MOVEM 

2. PTRAE 

SETZM 

PTRAF 

JSR 

GET1C 

MOVEM 

2. VALAE 

AOS 

PTRAE 

JSR 

GET1C 

MOVEM 

2.VALA0 

MOVE 

13.B0LLT 

MOVE 

15.VAL0 

JSR 

BOOL 

JRST 

L0C1D 

CAMN 

2, VALAE 

JRST 

LOCI  A 

input  of  Flag  line  and  for  input  of  normal  lines) 

iSTG2 

;EN0-0F-L1NE  INDICATOR. 

..CARRIAGE  RETURN  IS  -1. 


..LOCATION  COUNTER. 
..LEFT  PARENTHESIS. 


-.RESET  THE  SKIP  COUNT. 

; SET  EXPRESSION  SIGN  POSITIVE. 
: ADOI TION  OPERATOR. 


’.SUBTRACTION  OPERATOR. 
;t1UL  1 1 PLICATION  OPERATOR. 
•DIVISION  OPERATOR. 
jRIGHT  PARENTHESIS. 


. read  extension  of  FLAG  LINE 
; initialize 


; remains«0  if  no  extension 
• no  extension  of  FLAG  LINE 


; no  extension  of  FLAG  LINE 

; corresp.  no.  positions  for  TAB 

. into  tab. -parameter 
j POSNOfno  of  pos.)*— 13 

; NMTAB  - POSNO/TABPOS 

; initialize  POSNO 
; TAB-character  value 

; count  no.  of  tabs 

; terminate  extension 


; read  new  if  tab 


STG2 

STG2 


STG2 

STG2 

STG2 

STG2 

3TG2 


STG2 

STG2 

STG2 

STG2 


LUC1P: 


MOVE  2.VALAO 
CAMF  2.  VALE 
JRST  LOC1C 
AOS  PTRAF 

JSR  GE  TIC 
MOVEM  2.VALAO 
JRST  LOC1B 


LOC1C: 


LOCIO: 


LOC1E: 


LOC01 i 


LOC02: 


MOVE 

2.VALA0 

MOVE 

13.B0LLT 

MOVE 

15.VAL0 

JSR 

BOOL 

JRST 

LOCIO 

CAMN 

2.VALAE 

JRST 

LOCI  A 

MOVFM 

2.VALAF 

MOVE 

2.PTRAE 

I MUL 

2.PTRA0 

MOVEM 

2.PTRAE 

ADO 

2. PTRAF 

MOVEM 

2,  PTRAF 

SETZM 

PTRR 

MOVE 

2.PTR7 

AOJ 

2. 

MOVEM 

2.PTR4 

MOVE 

2.PTRF 

AOJ 

2. 

I10VEM 

2.PTR8 

MOVE  I 

14.PTR0 

MOVE  I 

1S.LOC01 

JSP 

13.SUBRT 

MOVE 

2.PTRA 

MOVE  I 

15.FLGI 

JSR  UNPACK 
MOVE  S.VALI 
JSR  READ IN 
MOVEM  2.FLGI 
JUMPN  2.LOC98 
HOVE  2.PTRC 
MOVEM  2.PTRI 
SETZfl  VALV 
tiOVE  2.PTRC 
MOVEM  2.PTRY 

HOVE  2.PTRM 
JUMPE  2.LOC02 
SOJ  2, 

MOVEM  2.PTRM 
JRST  . LOC01 

MOVE  2.PTRI 
MOVEM  2.PTR9 
JSR  GET 1C 

MOVEfl  2.VAL1 
MOVE  2.PTR9 
SOJ  2, 

MOVEM  2,PTRI 


• jump  if  not  space 

; count  no.  of  space* 
; read  neu  i f space 

• terminate  extension 


• read  new  i f tab 

; read  comment-delimiter 

• calculate  extension-parameters 

• pos.no.  corresp.  to  integer  tabs 


; pos.no.  of  beginning  comments 

• continue  original  STAGE2 
■SET  NO  REPETITION  IN  PROGRESS. 
I LENGTH  Gc  TWO  DESCRIPTORS. 


•.POINT  TO  THE  FIRST  AVAILABLE  SPACE, 


; START  WORKING  IN  EARNEST. 

•.ROUTINE  TO  READ  FROM  THE  INPUT. 
•.RECALL  THE  CHANNEL  SPEC, 

-.GRAB  A LINE. 

•get  out  unless  all  is  ok. 

; STG2 

; STG2 
{STG2 

•.SHOULD  THIS  LINE  BE  SKIPPED,  NO. 

•YES,  OROP  THE  SKIP  COUNT 

{TRY  AGAIN, 

..REAOING  LOOP. 

jAOVANCE  THE  SPACE  POINTER. 

. REAO  THE  NEXT  CHARACTER. 

•.POINT  TO  THE  NEXT  CHARACTER  SPACE. 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


• HAVE  WE  OVERRUN  THE  AREA,  YES. 

. PUT  AUAY  THE  CHARACTER. 

jUAS  THIS  A CARRIAGE  RETURN,  YES. 


STG2 


. 

I 

* 


CAMG 

2.PTR8 

JRST 

L0C97 

rinvF. 

2.PTR9 

MOVEl 

1S.FLGI 

JSR 

PACK 

MOVE 

2.VALI 

CAMN 

2.VALL 

JRST 

LOC04 

CAMN 

2.VALA 

JRST 

LOC03 

AOS 

VALY 

CAME 

2.VALB 

JRST 

LOC02 

MOVE 

2.PTRI 

HQVEM 

2.PTRB 

MOVE 

2.PTR9 

MOVEl 

15.FLGB 

JSR 

PACK 

JRST 

LOC02 

LOC03: 

LOC0A: 


MOVE 

MOVEM 


2.PTR9 

2.PTRAA 


HOVE 

CAMN 

JRST 

MOVE 

MOVEM 


2.VAL1 

2.VALL 

LOC0B 

2.PTRI 

2.PTR9 


LOC0G: 

JSR 

GET1C 

MOVETT 

2, VAL 1 

CAME 

2.VALA 

JRST 

LOC0I 

JSR 

GET1C 

MOVEM 

2.VAL1 

LOC0I: 

MOVE 

2, VAL I 

CAMN 

2.VALF 

JRST 

LOC0G 

CAMN 

2.VALAE 

JRST 

LOC0G 

CAME 

2, VALAF 

JRST 

LOC0J 

JSR 

GET1C 

MOVEM 

2.VAL1 

JRST 

LOC0H 

LOC0J:  

MOVE 

2,PTR9 

MOVEM 

2.PTRAA 

LOC0H:  

MOVE 

2.PTR9 

SOJ 

2, 

MOVER 

1 2.PTR1 

MOVE 

2.PTR9 

MOVEl 

1S.FLGI 

JSR 

PACK 

MOVE 

2.PTR8 

CAML 

2 , PTR 1 

JRST 

L0C97 

MOVE 

2, VAL I 

CAMN 

2.VALL 

JRST 

LOC0B 

•HAVE  WE  COMPLETED  THE  READ,  YES. 


STG2 

STG2 

STG2 


■BUMP  THE  INPUT  STRING  LENGTH. 

:,NO  IS  THIS  A PARAMETER  FLAG,  NO. 


STG2 

STG2 


; yES,  SET  THE  PARAMETER  POINTER  AND 
•STORE  IT  UITH  THE  PHASE  FLAG. 


STG2 

STG2 


• STG2 

•READ  THE  REMAINDER  OF  THE  LINE. 

; remark  limitroark 


STG2 


• loop  to  read  comments  etc. 

. car. ret.,  i-e.  no  remainder 


. read  new  if  first  was  "source  EOL-flag" 
. eliminate  leading  spaces 


• eliminate  leading  tabs 

; continue  if  no  comment-delimiter 

• eliminate  comment-delimiter 


s adjust  startpointer 
, normal  read/store  loop 


• error  if  full 

• terminate  when  car. ret. 


! 

f 


•! 


MOVE 

2.PTRI 

novEn 

2.PTR9 

JSR 

GF  TIC 

movfm 

2.VALI 

JRST 

LOC0H 

LOC0B: 

HOVE 

2.PTR9 

MOV  EM 

2.PTRAB 

L0CP4: 

MOVE 

2.PTR9 

SOJ 

2. 

MOVEM 

2.PTRU 

MOVE  I 

1S.FLG3 

JSR 

PACK 

SOJ 

2. 

MOVEM 

2.PTRU 

MOVE  I 

1S.FLG3 

JSR 

PACK 

SOJ 

2. 

MOVEM 

2.PTRU 

MOVE  I 

1S.FLG3 

JSR 

PACK 

SOJ 

n 

• 

MOVEM 

2.PTRU 

MOVE  I 

1S.FLG3 

JSR 

PACK 

SOJ 

2. 

MOVEM 

2.PTRU 

MOVE  I 

15.FLG3 

JSR 

PACK 

SOJ 

2. 

MOVEM 

2.PTRU 

MOVE  I 

15.FLG3 

JSR 

PACK 

SOJ 

2. 

MOVEM 

2.PTRU 

MOVE  I 

15.FLG3 

JSR 

PACK 

SOJ 

2. 

MOVEM 

2.PTRU 

MOVEI 

15.FLG3 

JSR 

PACK 

: read  next 

; and  continue  in  loop 
j remainder  of  line  finished 
j set  terminate-pointer 

; SCANNER. 

;SET  ALL  PARAMETERS  UNDEFINED. 

•,  STG2 
: STG2 
; STG2 
: STG2 
; STG2 
5 STG2 
: STG2 
: STG2 
:STG2 
: STG2 
: STG2 
; STG2 
; STG2 
j STG2 
iSTG2 


STG2 

STG2 


(Section  containing  the  Modified  output  routine) 


MOVE 

2.PTR8 

MOVFI 

1S.FLG1 

JSR 

PACK 

AOJ 

2. 

MOVEM 

2.PTR8 

CAML 

2.PTR9 

JRST 

L0C97 

JSR 

GET1C 

MOVEM 

2.VALI 

CAME 

2.VALC 

JRST 

LOCSS 

SETZM 

FLGB 

L0C5S: 

MOVE 

13.PTR0 

JRST 

(13) 

LOCSS: 

MOVE 

2.VAL3 

MOVEM 

2.VALU 

MOVE 

2.PTRC 

MOVEM 

2.PTRX 

MOVE 

2.PTRAB 

MOVEM 

2.PTRAA 

L0CS7: 

MOVE 

2.PTRX 

MOVE  I 

15.FLGX 

JSR  i 

UNPACK 

MOVE 

2.VALX 

CAME 

2.VALL 

JRST 

LOC0D 

MOVE 

2.PTRA0 

JUMPE 

2.LOC0O 

MOVE 

2.PTRAA 

CAMN 

2.PTRAB 

JRST 

LOC0O 

L0C2A: 

MOVE  ' 

2.PTRZC 

CAML 

2.PTRAE 

JRST 

L0C2B 

MOVE 

2.VALAE 

JSR 

UTCHAR 

MOVEM  3.FLGAE 

JRST 

L0C2A 

LOC2B: 

MOVE 

2.PTRZC 

CAML 

2.PTRAF 

JRST 

L0C2C 

MOVE 

2.VALF 

JSR 

UTCHAR 

MOVEM  3.FLGF 

JRST 

LOC2B 

L0C2C: 

MOVE 

2.VALAF 

JUMPE  2.LOC0C 

MOVE 

2.VALAF 

JSR 

UTCHAR 

MOVEM  3.FLGAF 

LOC0C: 

MOVE 

2.PTRAA 

MOVE  I 15.FLGAA 

JSR 

UNPACK 

; YES . SET  THE  TERMINATOR. 

•AOVANCE  THE  SPACE  POINTER. 

• HAVE  UE  OVERRUN  THE  AREA,  VES. 

•GET  THE  NEXT  CHARACTER. 

•DIO  THAT  CLOSE  THE  DEFINITION  PHASE,  NO. 

•VES,  RESET  THE  PHASE  FLAG. 

{COMMON  SYSTEM  RETURN  POINT. 

{REGISTER  0 IS  THE  RETURN  AOORESS. 

{PUNCH  AN  UNRECOGNIZED  LINE. 

{CHANNEL  3 USED  UHEN  A LINE  IS  NOT  MATCHED. 

; AODRESS  THE  FIRST  CHARACTER. 

; eliminate  double  output  of  comments 

; output  characters 
; norm,  loop,  get  character 


! continue  in  normal  loop  if  not  CR 


; or  if  "main  extension  suith"  off 
{ or  if  no  remainder  in  this  line 


{ output  remainder  of  line! 

; if  pos. counter  less  integr.  tab.pos 


• then  output  tab  and  loop 


; loop  for  spaces 


5 put  out  space(9) 


; put  out  comment-delimiter 

; loop  for  output  of  remaining  string 
•,  get  first  char. 


STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 

STG2 


HOVE 

2. VALAA 

; eliminate  possible  "source  EOL-flag" 

CAME 

2.VALA 

JRST 

LOC2E 

L0C20: 

: loop  for  output  remainder  (comments) 

hove 

2.PTRAA 

; get  next  character 

HOVE  I 

1S.FLGAA 

JSR 

UNPACK 

L0C2E: 

HOVE 

2. VALAA 

; put  out  the  character 

JSR 

UTCHAR 

MOVEM 

3, FLGAA 

MOVE 

2.FLGAA 

; possible  terminate 

CAMN 

2.FLG1 

JRST 

LOC0F 

MOVE 

2.PTRAA 

; go  loop  if  not  exhausted 

CAME 

2.PTRAB 

JRST 

LOC2D 

LOC0O: 

; normal  output-loop 

MOVE 

2,  VALX 

JSR 

UTCHAR 

movem 

3.FLGX 

CAMN 

2.VALL 

; terminate  if  CR 

JRST 

LOC0E 

MOVE 

2.FLGX 

;HAVE  UE  REACHED  THE  END,  NO. 

STG2 

CAME 

2.FLG1 

JRST 

LOCS7 

LOC0F : 

MOVE 

2.PTRAB 

; squeeze  possible  remaining  of  "remainder" 

MOVEM 

2.PTRAA 

LOC0E : 

; end  of  line  reached: 

MOVE 

S.VALU 

; YES,  PUT  IT  OUT  ON  THE  DESIGNATED  CHANNEL. 

STG2 

JSR 

URTLIN 

MOVEM 

2.FLGU 

JUMPN 

2.L0C98 

; TREAT  ANY  ERROR  AS  FATAL. 

STG2 

MOVE 

2. VALX 

jELSE  IF  THE  LINE  IS  COMPLETE,  RETURN. 

STG2 

CAMN 

2.VALL 

JRST 

L0C55 

MOVE 

2, VALX 

;ELSE  REPRINT  THE  LAST  CHARACTER 

STG2 

JSR 

UTCHAR 

MOVEM 

3.FLGX 

JRST 

L0C57 

: AND  CONTINUE. 

STG2 

L0C58: 

; TRY  FOR  AN  ALTERNATIVE  MATCH. 

STG2 

MOVE 

2.PTRU 

;GET  THE  POINTER  TO  THE  ALTERNATIVE. 

STG2 

ADO 

2.PTRZ 

MOVEM 

2.PTRZ 

MOVE 

2.PTRU 

:UAS  THERE  ONE  AFTER  ALL,  YES. 

STG2 

JUMPN 

2.LOC60 

MOVE 

2.FLGB 

:NO.  ARE  UE  DEFINING.  YES. 

STG2 

CAMN 

2.FLG2 

JRST 

L0C71 

L0C59: 

i TRY  EXTENDING  THE  PREVIOUS  PARAMETER. 

STG2 

MOVE 

2.PTRV 

; IS  THERE  ONE  TO  EXTEND,  NO. 

STG2 

CAML 

2.PTR9 

JRST 

LOC70 

MOVE  I 

1S.FLGZ 

: RECALL  THE  MACRO  POINTER. 

STG2 

JSR  UNPACK 

MOVE 

2.PTRQ 

j YES,  RECALL  THE  INPUT  POINTER 

STG2 

MOVE  I 

15.FLGY 

JSR  UNPACK 

MOVE 

2.PTRY 

: AND  THE  CURRENT  CHARACTER 

STG2 

MOVE  1 

15.FLGX 

JSR  UNPACK 

: IS  THIS  THE  FIRST  TIME  FOR  A PARAMETER.  YESSTG2 


HOVE  2.FLGZ 
CAMN  2.FLG2 
. IRST  L0C63 
CAMN  2.FLG3 
JRST  L0CG4 


; NO,  IS  IT  A PARAMETER  EXTENSION.  YES 


STG2 
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